home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 10 / Amoszine 10 (Disk 3 of 3).adf / Amos_Procs.lha / Mousetrap.proc / Mousetrap.amosSourceCode
Encoding:
AMOS Source Code  |  1991-12-03  |  237 b   |  13 lines
  1. Procedure MOUSETRAP
  2.    ' By John Smit 
  3.    ' Used to Halt Program execution while the mouse is moving 
  4.    '  
  5.    X1=-1 : Y1=-1
  6.    Repeat 
  7.       X=X1
  8.       Y=Y1
  9.       Wait 5
  10.       X1=X Mouse
  11.       Y1=Y Mouse
  12.    Until X1=X and Y1=Y
  13. End Proc